home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / boot / Rainboot3.lha / Rainboot3 / RainbootInstallation < prev    next >
Text File  |  2000-09-10  |  21KB  |  687 lines
  1. ;
  2. ; $VER: Install-Rainboot3 (9.09.00)
  3. ;
  4. ; by Andreas Falkenhahn & Kimmo Pekkola
  5. ;
  6.  
  7. (set ver 3)
  8. (set rev 0) 
  9.  
  10. ;---------------------------- Global Strings ---------------------------------
  11. (set #hello-msg (cat "\nRainboot3\n-\nMultimedia's Got A Name\n\nVersion " ver "." rev "\n\n(C) Copyright 1996-2000 Andreas Falkenhahn & Kimmo Pekkola"))
  12. (set #locale-msg (cat "Select a language to use\nWählen Sie eine Sprache aus"))
  13. (set #identifyn "Libs/identify.library")
  14. (set #thxplayn "Libs/thxplay.library")
  15. (set #dirname "Rainboot")
  16. (set #guide1 "Rainboot3.guide")
  17. ;----------------------------------------------------------------------------
  18.  
  19. (message #hello-msg)
  20.  
  21. (set #locale
  22.     (askchoice
  23.         (prompt #locale-msg)
  24.         (help @askoptions-help)
  25.         (choices "english" "deutsch")
  26.     )
  27. )
  28.  
  29. (if (= #locale 0) (
  30.    (set #keys-msg (cat "\nThe installer has found Rainboot 2.x keyfiles on your harddisk! "
  31.                        "To use Rainboot3 in an uncrippled way, you've to upgrade for only "
  32.                        "10 DM/$8 USD.\n\nPlease have a look at the documentation to see "
  33.                        "how to purchase your personal upgrade. Thank you!"
  34.    ))                    
  35.    (set #kick39-msg "Sorry, you need at least Kickstart 3.0 to use Rainboot 3.")
  36.    (set #destdir-msg "Where you want Rainboot3 to be installed? A drawer called Rainboot will be created.")
  37.    (set #libs-msg "Copying libraries...")
  38.    (set #copyil-msg "\nCopying iff.library to LIBS:...")
  39.    (set #copyrbl-msg "\nCopying Rainboot.library to LIBS:...")
  40.    (set #copympl-msg "\nCopying medplayer.library to LIBS:...")
  41.    (set #copypll-msg "\nCopying player61.library to LIBS:...")
  42.    (set #copyprl-msg "\nCopying ptreplay.library to LIBS:...")
  43.    (set #copytl-msg "\nCopying thxplay.library to LIBS:...")
  44.    (set #copyidl-msg "\nCopying identify.library to LIBS:...")
  45.    (set #copyrb-msg "\nCopying Rainboot3 to C:...")
  46.    (set #copyrbd-msg "\nCopying Rainboot3.data to C:...")
  47.    (set #copygm "\nThe GetModeID tool can be used to find out the modeid for a screenmode! Do you want to install it?")
  48.    (set #copygm-msg "\nCopying GetModeID to C:...")
  49.    (set #copy-msg "Copying files...")
  50.    (set #example-msg "Which of these example configs do you want to install?")
  51.    (set #fonts-msg "Do you want to install the fonts also? The examples won't work correctly without these fonts.")
  52.    (set #fonts-help "FuturaB, FuturaL and GoudyB are going to be installed in your FONTS: drawer")
  53.    (set #start-msg "Do you want Rainboot3 to be copied in your WBstartup drawer?")
  54.    (set #start-help "Copying Rainboot3 to your WBStartup drawer closes the bootscreen at the end of the booting. This does not start a new Rainboot2 even if one isn't running. It only stops it.")
  55.    (set #wbstart-msg "Where is your WBStartup drawer?")
  56.    (set #edit-msg "Now you still have to edit your s:startup-sequence. Just put the line (one line!):\n\n")
  57.    (set #edit-msg2 "\n\nsomewhere after the monitordrivers and reset your Amiga.\n(You might also need a MODEID or CGFX argument so check the docs for details)")
  58.    (set #edit2-msg "If you want to use Rainboot3 you must first create a config-file (check the docs and the examples) and the put Rainboot2 in your startup-sequence. Somewhere after the monitordrivers is probably a good place")
  59.    (set #tools-msg "Which tools do you want to install?")
  60.    (set #startmenu "What do you want to do?")
  61.    (set #choice1 "Install Rainboot")
  62.    (set #choice2 "Configure Rainboot")
  63.    (set #configintro "\nRainboot wasn`t found in your S:Startup-Sequence. Do you want the Installer to add it to your Startup-Sequence?")
  64.    (set #found1 "Rainboot has been found in your Startup-Sequence in the following line:")
  65.    (set #found2 "What to do with this line now?")
  66.    (set #found3 "Change line")
  67.    (set #found4 "Delete line")
  68.    (set #found5 "Nothing")
  69.    (set #sconfig "Which configuration do you want to use while booting?")
  70.    (set #wargs "Which options do you want to use?")
  71.    (set #arg1 "RTG - for usage under CGfx and Picasso96")
  72.    (set #arg2 "BESTFIT - use bestpossible screenmode")
  73.    (set #arg3 "PUBLIC - open a public screen")
  74.    (set #arg4 "USEDEFAULTS - use default settings (recommended)")
  75.    (set #try1 "\nShall the selected configuration ")
  76.    (set #try2 " now be displayed so that you can check if it works on your system?")
  77.    (set #ftry (cat "\nIf the configuration has been displayed correctly, you can click on Continue "
  78.                    "now, it`ll be added to your Startup-Sequence. If there have been errors occured "
  79.                    "please look in the documentation or contact me for help!"
  80.    )) 
  81.    (set #warn (cat "\nWARNING! Are you sure that Rainboot shall be added to your Startup-Sequence? "
  82.                    "If you want this click on Continue now. A backup of your current Startup-Sequence "
  83.                    "will be saved to S:Startup-Sequence.rainboot!"
  84.    ))
  85.    (set #fini (cat "\nRainboot has been successfully installed in your Startup-Sequence! "
  86.                    "You should reboot your Amiga now and look, if they config is displayed "
  87.                    "correctly. If this is not the case, you can look in the documentation "
  88.                    "or contact me for help. To restore your old Startup-Sequence, open a Shell "
  89.                    "and type in:\n\n"
  90.                    "Copy S:Startup-Sequence.rainboot S:Startup-Sequence\n\n"
  91.                    "Have fun!"
  92.    ))
  93.    (set #ifi (cat "\nThe installation has been finished successfully. You can configure Rainboot "
  94.                   "now if you`ll click on Continue. If you don`t want that, you`ll have to click "
  95.                   "on Abort."
  96.    ))
  97. ))
  98.  
  99. (if (= #locale 1) (
  100.    (set #keys-msg (cat "\nDer Installer hat auf Ihrem System Rainboot 2.x Keyfiles gefunden. "
  101.                        "Um Rainboot3 uneingeschränkt nutzen zu können, müssen Sie jedoch für "
  102.                        "10 DM upgraden.\n\nBitte schauen Sie in die Dokumentation, um zu "
  103.                        "erfahren, wie Sie Ihr Upgrade bestellen können."
  104.    ))                    
  105.    (set #kick39-msg "Sie benötigen mindestens Kickstart 3.0, um Rainboot 3 benutzen zu können.")
  106.    (set #destdir-msg "Wo möchten Sie Rainboot3 installiert haben? Ein Verzeichnis namens Rainboot wird dort angelegt!")
  107.    (set #libs-msg "Kopiere Libraries...")
  108.    (set #copyil-msg "\nKopiere iff.library nach LIBS:...")
  109.    (set #copyrbl-msg "\nKopiere Rainboot.library nach LIBS:...")
  110.    (set #copympl-msg "\nKopiere medplayer.library nach LIBS:...")
  111.    (set #copypll-msg "\nKopiere player61.library nach LIBS:...")
  112.    (set #copyprl-msg "\nKopiere ptreplay.library nach LIBS:...")
  113.    (set #copytl-msg "\nKopiere thxplay.library nach LIBS:...")
  114.    (set #copyidl-msg "\nKopiere identify.library nach LIBS:...")
  115.    (set #copyrb-msg "\nKopiere Rainboot3 nach C:...")
  116.    (set #copyrbd-msg "\nKopiere Rainboot3.data nach C:...")
  117.    (set #copy-msg "Kopiere Dateien...")
  118.    (set #copygm "\nDas GetModeID Tool kann benutzt werden, um herauszufinden, welcher ModeID zu welchen Bildschirmmodus gehört. Möchten Sie es installieren?")
  119.    (set #copygm-msg "\nKopiere GetModeID nach C:...")
  120.    (set #example-msg "Welche dieser Beispiele möchten Sie installieren?")
  121.    (set #fonts-msg "Möchten Sie auch die Schriften installieren? Die Beispiele funktionieren ohne diese Schriften nicht korrekt.")
  122.    (set #fonts-help "FuturaB, FuturaL und GoudyB werden in Ihrem FONTS: Verzeichnis abgelegt!")
  123.    (set #start-msg "Soll Rainboot3 in Ihre WBStartup gelegt werden?")
  124.    (set #start-help "Rainboot3 in Ihrem WBStartup Verzeichnis schließt den Bootbildschirm, wenn Sie den Befehl %W in Ihrer Konfiguration benutzen.")
  125.    (set #wbstart-msg "Wo ist Ihr WBStartup Verzeichnis?")
  126.    (set #edit-msg "Jetzt müssen Sie noch Ihre Startup-Sequence edieren. Fügen Sie einfach diese Zeile (nur eine Zeile!):\n\n")
  127.    (set #edit-msg2 "\n\nirgendwo nach den Monitortreiber ein und starten Sie Ihren Amiga neu.\n(Möglicherweise müssen Sie auch das MODEID oder RTG Argument benutzen, schauen Sie in die Dokumentation!)")
  128.    (set #edit2-msg (cat "Wenn Sie Rainboot3 benutzen möchten, müssen Sie zuerst eine Konfiguration "
  129.                         "erstellen. Schauen Sie sich einfach mal die Beispiele an oder schauen Sie "
  130.                         "in die Dokumentation. Außerdem muss Rainboot in Ihre Startup-Sequence "
  131.                         "eingefügt werden!"
  132.    ))
  133.    (set #tools-msg "Welche Tools möchten Sie installieren?")
  134.    (set #startmenu "Was möchten Sie machen?")
  135.    (set #choice1 "Rainboot installieren")
  136.    (set #choice2 "Rainboot konfigurieren")
  137.    (set #configintro "\nRainboot wurde nicht in Ihrer Startup-Sequence gefunden. Möchten Sie, dass der Installer Rainboot dort einfügt?")
  138.    (set #found1 "Rainboot wurde in Ihrer Startup-Sequence in folgender Zeile gefunden:")
  139.    (set #found2 "Was soll mit dieser Zeile passieren?")
  140.    (set #found3 "Zeile ändern")
  141.    (set #found4 "Zeile löschen")
  142.    (set #found5 "Nichts")
  143.    (set #sconfig "Welche Konfiguration möchten Sie während dem Booten verwenden?")
  144.    (set #wargs "Welche Optionen möchten Sie verwenden?")
  145.    (set #arg1 "RTG - für die Verwendung unter CGfx und Picasso96")
  146.    (set #arg2 "BESTFIT - besten Bildschirmmodus nutzen")
  147.    (set #arg3 "PUBLIC - Öffentlichen Bildschirm öffnen")
  148.    (set #arg4 "USEDEFAULTS - Standardeinstellungen benutzen (empfohlen)")
  149.    (set #try1 "\nSoll die ausgewählte Boot-Konfiguration ")
  150.    (set #try2 " jetzt probeweise angezeigt werden, damit Sie überprüfen können, ob Rainboot auf Ihrem System läuft?")
  151.    (set #ftry (cat "\nWenn die Konfiguration problemlos angezeigt wurde, können Sie jetzt auf Weiter "
  152.                    "klicken, dann wird Sie in Ihre Startup-Sequence eingetragen. Sollte es Fehler "
  153.                    "gegeben haben, kontakten Sie bitte mich oder schauen in der Dokumentation nach!"
  154.    )) 
  155.    (set #warn (cat "\nACHTUNG! Sind Sie sicher, dass Rainboot in Ihre Startup-Sequence "
  156.                    "eingefügt werden soll? Wenn Sie das möchten, klicken Sie auf Weiter."
  157.                    "Es wird dann ein Backup Ihrer Startup-Sequence nach S:Startup-Sequence.rainboot "
  158.                    "gespeichert. "
  159.    ))
  160.    (set #fini (cat "\nRainboot wurde erfolgreich in Ihrer Startup-Sequence installiert! "
  161.                    "Sie sollten Ihren Amiga mal neustarten und schauen, ob Rainboot nun "
  162.                    "funktioniert. Sollte dies nicht der Fall sein, schauen Sie in die "
  163.                    "Dokumentation und kontakten ggf. mich. Um Ihre alte Startup-Sequence "
  164.                    "wiederherzustellen öffnen Sie eine Shell und geben folgendes ein:\n\n"
  165.                    "Copy S:Startup-Sequence.rainboot S:Startup-Sequence\n\n"
  166.                    "Viel Spaß!"
  167.    ))
  168.    (set #ifi (cat "\nDie Installation wurde erfolgreich abgeschlossen. Als nächtes können Sie Rainboot "
  169.                   "konfigurieren, klicken Sie dazu auf Weiter. Wenn Sie nichts mehr machen wollen, "
  170.                   "klicken Sie auf Abbrechen."
  171.    ))
  172.    (set #dlocale (cat "\nSoll Rainboot3 immer das deutsche Datumsformat (Tag. Monat Jahr) benutzen? "
  173.                       "Es wird dann die von mir schon mit dem RBLocaleCreator für deutsche Benutzer "
  174.                       "erstellte Datei installiert."
  175.    ))
  176. )) 
  177.  
  178. (procedure config
  179.  
  180.    (run "Tools/RBSSAdder SEARCH")
  181.    
  182.    (if (exists "ENV:RBENTRY") (
  183.       (set #rbpath (getenv "RBENTRY"))
  184.       (set wsmd
  185.           (askchoice
  186.                 (prompt (cat #found1 "\n\n" #rbpath "\n\n" #found2))
  187.                 (choices #found3 #found5)
  188.                 (help @askchoice-help)
  189.           )
  190.       )    
  191.  
  192.       (if (= wsmd 1) (
  193.          (exit (quiet))
  194.       ))           
  195.       
  196.       (delete "env:RBENTRY")
  197.    ) (
  198.       (set ychoice
  199.           (askbool
  200.              (prompt #configintro)
  201.              (help @askbool-help)
  202.           )
  203.       )
  204.       
  205.       (if (= ychoice 0) (
  206.          (exit (quiet))
  207.       ))   
  208.    ))   
  209.    
  210.    (set #rconfig
  211.        (askfile
  212.           (prompt #sconfig)
  213.           (help   @askfile-help)
  214.           (default "sys:")
  215.        )
  216.    )
  217.    
  218.    (set args
  219.        (askoptions       
  220.          (prompt #wargs)
  221.          (help @askoptions-help)
  222.          (choices #arg1 #arg2 #arg3 #arg4)
  223.          (default 0)
  224.        )
  225.    )      
  226.  
  227.    (if (in args 0)
  228.       (set #argy1 "RTG ")
  229.    )
  230.  
  231.    (if (in args 1)
  232.       (set #argy2 "BESTFIT ")
  233.    )
  234.  
  235.    (if (in args 2)
  236.       (set #argy3 "PUBLIC ")
  237.    )
  238.  
  239.    (if (in args 3)
  240.       (set #argy4 "USEDEFAULTS ")
  241.    )
  242.  
  243.    (set ttry
  244.        (askbool
  245.           (prompt #try1 #rconfig #try2)
  246.           (help @askbool-help)
  247.        )
  248.    )
  249.  
  250.    (if (= ttry 1) (
  251.       (run "Rainboot3 " #rconfig " " #argy1 #argy2 #argy3 #argy4)
  252.       (message #ftry)
  253.    ))
  254.  
  255.    (message #warn)
  256.  
  257.    (copyfiles
  258.       (source "S:Startup-Sequence")
  259.       (dest "S:")
  260.       (newname "Startup-Sequence.rainboot")
  261.       (nogauge)
  262.    )
  263.  
  264.    (run "Tools/RBSSAdder \"Rainboot3 " #rconfig #argy1 #argy2 #argy3 #argy4 "\"") 
  265.  
  266.    (message #fini)
  267.   
  268.    (exit (quiet))
  269.  
  270. )         
  271.  
  272. (welcome)
  273.  
  274. (if (< (/ (getversion) 65536) 39)
  275.     (abort #kick39-msg)
  276. )
  277.  
  278. (set #selection
  279.     (askchoice
  280.         (prompt #startmenu)
  281.         (help @askoptions-help)
  282.         (choices #choice1 #choice2)
  283.     )
  284. )
  285.  
  286. (if (= #selection 1) (
  287.    (config)
  288. ))   
  289.  
  290. (if (exists "S:Rainboot2.key") (
  291.    (message #keys-msg)
  292. ))   
  293.  
  294. (set #destdir
  295.     (askdir
  296.         (prompt    #destdir-msg)
  297.         (help    @askdir-help)
  298.         (default "SYS:")
  299.     )
  300. )
  301.  
  302. (set @default-dest #destdir)
  303.  
  304. (makedir (tackon #destdir #dirname))
  305.  
  306. (copyfiles
  307.    (source "/Rainboot3.info")
  308.    (dest #destdir)
  309.    (newname "Rainboot.info")
  310. )
  311.    
  312. (copyfiles
  313.     (prompt #copy-msg)
  314.     (help @copyfiles-help)
  315.     (source "")
  316.     (dest (tackon #destdir #dirname))
  317.     (choices "Rainboot3" "Rainboot3.data" #guide1)
  318.     (infos)
  319. )
  320.  
  321. (copylib
  322.     (prompt #copyrb-msg)
  323.     (source "Rainboot3")
  324.     (dest "C:")
  325.     (help @copylib-help)
  326.         (optional force askuser)
  327.         (confirm)
  328. )
  329.  
  330. (copylib
  331.     (prompt #copyrbd-msg)
  332.     (source "Rainboot3.data")
  333.     (dest "C:")
  334.     (help @copylib-help)
  335.         (optional force askuser)
  336.         (confirm)
  337. )
  338.  
  339. (copyfiles
  340.     (source "Installation.readme")
  341.     (dest (tackon #destdir #dirname))
  342.     (infos)
  343. )
  344.  
  345. (copyfiles
  346.     (source "InstallRainboot.info")
  347.     (dest (tackon #destdir #dirname))
  348. )
  349.  
  350. (copyfiles
  351.     (source "RainbootInstallation")
  352.     (dest (tackon #destdir #dirname))
  353. )
  354.  
  355. (copyfiles
  356.     (source "RegisteredUsers.readme")
  357.     (dest (tackon #destdir #dirname))
  358.     (infos)
  359. )
  360.  
  361. (if (< (database "cpu") 68020) (
  362.    (set #identifyn "Libs/identify.library_000")
  363.    (set #thxplayn "Libs/thxplay.library_000")
  364. ))
  365.  
  366. (copylib
  367.     (prompt #copyprl-msg)
  368.     (source "Libs/ptreplay.library")
  369.     (dest "LIBS:")
  370.     (help @copylib-help)
  371.     (confirm)
  372.         (optional force askuser)
  373. )
  374.  
  375. (copylib
  376.     (prompt #copyrbl-msg)
  377.     (source "Libs/Rainboot.library")
  378.     (dest "LIBS:")
  379.     (help @copylib-help)
  380.     (confirm)
  381.         (optional force askuser)
  382. )
  383.  
  384. (copylib
  385.     (prompt #copympl-msg)
  386.     (source "Libs/medplayer.library")
  387.     (dest "LIBS:")
  388.     (help @copylib-help)
  389.     (confirm)
  390.         (optional force askuser)
  391. )
  392.  
  393. (copylib
  394.     (prompt #copytl-msg)
  395.     (source #thxplayn)
  396.     (dest "LIBS:")
  397.         (newname "thxplay.library")
  398.     (help @copylib-help)
  399.     (confirm)
  400.         (optional force askuser)
  401. )
  402.  
  403. (copylib
  404.     (prompt #copypll-msg)
  405.     (source "Libs/player61.library")
  406.     (dest "LIBS:")
  407.     (help @copylib-help)
  408.     (confirm)
  409.         (optional force askuser)
  410. )
  411.  
  412. (copylib
  413.     (prompt #copyil-msg)
  414.     (source "Libs/iff.library")
  415.     (dest "LIBS:")
  416.     (help @copylib-help)
  417.     (confirm)
  418.         (optional force askuser)
  419. )
  420.  
  421. (copylib
  422.         (prompt #copyidl-msg)
  423.         (source #identifyn)
  424.         (dest "LIBS:")
  425.         (newname "identify.library")
  426.         (help @copylib-help)
  427.         (confirm)
  428.         (optional force askuser)
  429. )
  430.  
  431. (if (exists "Tools") (
  432.  
  433.    (makedir (tackon (tackon #destdir #dirname) "Tools"))
  434.  
  435.    (copyfiles
  436.     (source "Tools.info")
  437.     (dest (tackon #destdir #dirname))
  438.     (infos)
  439.    )
  440.  
  441.    (set #tools
  442.     (askoptions
  443.         (prompt #tools-msg)
  444.         (help @askoptions-help)
  445.         (choices "GetModeID" "LoginMaker" "RainCreator" "RBLocaleCreator" "RBSSAdder")
  446.     )
  447.    )
  448.  
  449.    (if (in #tools 0)
  450.  
  451.     (copyfiles
  452.         (prompt #copy-msg)
  453.         (help @copyfiles-help)
  454.         (source "Tools/GetModeID")
  455.         (dest (tackon (tackon #destdir #dirname) "Tools"))
  456.         (pattern "GetModeID#?")
  457.         (infos)
  458.     )
  459.    )
  460.  
  461.    (if (in #tools 1)
  462.  
  463.     (copyfiles
  464.         (prompt #copy-msg)
  465.         (help @copyfiles-help)
  466.         (source "Tools/LoginMaker")
  467.         (dest (tackon (tackon #destdir #dirname) "Tools"))
  468.         (pattern "LoginMaker#?")
  469.         (infos)
  470.     )
  471.   )
  472.  
  473.   (if (in #tools 2)
  474.  
  475.         (copyfiles
  476.                 (prompt #copy-msg)
  477.                 (help @copyfiles-help)
  478.                 (source "Tools/RainCreator")
  479.                 (dest (tackon (tackon #destdir #dirname) "Tools"))
  480.                 (pattern "RainCreator#?")
  481.                 (infos)
  482.         )
  483.   )
  484.  
  485.   (if (in #tools 3)
  486.  
  487.         (copyfiles
  488.                 (prompt #copy-msg)
  489.                 (help @copyfiles-help)
  490.                 (source "Tools/RBLocaleCreator")
  491.                 (dest (tackon (tackon #destdir #dirname) "Tools"))
  492.                 (pattern "RBLocaleCreator#?")
  493.                 (infos)
  494.         )
  495.   )
  496.  
  497.   (if (in #tools 4)
  498.  
  499.         (copyfiles
  500.                 (prompt #copy-msg)
  501.                 (help @copyfiles-help)
  502.                 (source "Tools/RBSSAdder")
  503.                 (dest (tackon (tackon #destdir #dirname) "Tools"))
  504.                 (pattern "RBSSAdder#?")
  505.                 (infos)
  506.         )
  507.   )
  508.  
  509. ))
  510.  
  511. (if (exists "Configs") (
  512.  
  513.    (makedir (tackon (tackon #destdir #dirname) "Configs") (infos))
  514.  
  515.    (set #example
  516.     (askoptions
  517.         (prompt #example-msg)
  518.         (help @askoptions-help)
  519.         (choices "AmigaCD32 Boot" "AmigaOS3.5 Boot" "Demo" "MultipleAnims" "RainbootManual")
  520.         (default 2)
  521.     )
  522.    )
  523.  
  524.    (if (in #example 0)
  525.  
  526.     (copyfiles
  527.         (prompt #copy-msg)
  528.         (help @copyfiles-help)
  529.         (source "Configs")
  530.         (dest (tackon (tackon #destdir #dirname) "Configs"))
  531.         (pattern "AmigaCD32Boot#?")
  532.     )
  533.    )
  534.  
  535.    (if (in #example 1)
  536.  
  537.     (copyfiles
  538.         (prompt #copy-msg)
  539.         (help @copyfiles-help)
  540.         (source "Configs")
  541.         (dest (tackon (tackon #destdir #dirname) "Configs"))
  542.         (pattern "AmigaOS35#?")
  543.     )
  544.   )
  545.  
  546.   (if (in #example 2)
  547.  
  548.         (copyfiles
  549.                 (prompt #copy-msg)
  550.                 (help @copyfiles-help)
  551.                 (source "Configs")
  552.                 (dest (tackon (tackon #destdir #dirname) "Configs"))
  553.                 (pattern "Demo#?")
  554.         )
  555.   )
  556.  
  557.   (if (in #example 3)
  558.  
  559.         (copyfiles
  560.                 (prompt #copy-msg)
  561.                 (help @copyfiles-help)
  562.                 (source "Configs")
  563.                 (dest (tackon (tackon #destdir #dirname) "Configs"))
  564.                 (pattern "MultipleAnims#?")
  565.         )
  566.   )
  567.  
  568.   (if (in #example 4)
  569.  
  570.         (copyfiles
  571.                 (prompt #copy-msg)
  572.                 (help @copyfiles-help)
  573.                 (source "Configs")
  574.                 (dest (tackon (tackon #destdir #dirname) "Configs"))
  575.                 (pattern "RainbootManual#?")
  576.         )
  577.   )
  578.  
  579.   (copyfiles
  580.      (source "Configs/ReadMe.txt")
  581.      (dest (tackon (tackon #destdir #dirname) "Configs"))
  582.      (infos)
  583.   )
  584.   
  585.   (copyfiles
  586.      (source "Configs.info")
  587.      (dest (tackon #destdir #dirname))
  588.   )      
  589. ))
  590.  
  591. (if (exists "Fonts") (
  592.  
  593.    (set #fonts #example)
  594.  
  595.    (set #fonts
  596.     (askbool
  597.         (prompt #fonts-msg)
  598.         (help #fonts-help)
  599.         (default 1)
  600.     )
  601.    )
  602.  
  603.    (if #fonts
  604.     (copyfiles
  605.         (prompt #copy-msg)
  606.         (help @copyfiles-help)
  607.         (source "Fonts")
  608.         (dest "FONTS:")
  609.         (all)
  610.     )
  611.    )
  612. ))
  613.  
  614. (set #start
  615.     (askbool
  616.         (prompt #start-msg)
  617.         (help #start-help)
  618.         (default 1)
  619.     )
  620. )
  621.  
  622. (if #start
  623.     ((set #wbdir 
  624.         (askdir
  625.             (prompt    #wbstart-msg)
  626.             (help    @askdir-help)
  627.             (default "SYS:WBStartup")
  628.         )
  629.     )
  630.  
  631.     (copyfiles
  632.         (prompt #copy-msg)
  633.         (help @copyfiles-help)
  634.         (source "")
  635.         (dest #wbdir)
  636.         (choices "Rainboot3" "Rainboot3.info")
  637.     ))
  638. )
  639.  
  640. (if (= #locale 1) (
  641.    (set dloc
  642.        (askbool
  643.           (prompt #dlocale)
  644.           (help   @askbool-help)
  645.        )
  646.    )
  647.  
  648.    (if (= dloc 1) (
  649.       (copyfiles
  650.          (source "Rainboot3.dlocale")
  651.          (dest "S:")
  652.          (newname "Rainboot3.locale")
  653.       )
  654.    ))
  655. ))   
  656.  
  657. (if (exists "Deutsch") (
  658.  
  659.    (makedir (tackon (tackon #destdir #dirname) "Deutsch"))
  660.  
  661.    (copyfiles
  662.     (source "Deutsch.info")
  663.     (dest (tackon #destdir #dirname))
  664.     (infos)
  665.    )
  666.  
  667.    (copyfiles
  668.         (source "Deutsch/Formular.txt")
  669.         (dest (tackon (tackon #destdir #dirname) "Deutsch"))
  670.         (infos)
  671.    )  
  672.  
  673.  
  674.    (copyfiles
  675.         (source "Deutsch/Lies_Mich.txt")
  676.         (dest (tackon (tackon #destdir #dirname) "Deutsch"))
  677.         (infos)
  678.    )  
  679. ))
  680.  
  681. (message #ifi)
  682.  
  683. (config)
  684. (exit (quiet))
  685. ;(message #edit-msg (tackon (tackon #destdir #dirname) "Rainboot2 ") (tackon (tackon #destdir #dirname) "Configs/Cloudboot.config") #edit-msg2)
  686. ;(message #edit2-msg)
  687.